home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Geos / FONTS 1-44 / FONT29.D64 / fontdata (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  297b  |  18 lines
  1. 100 B=12288
  2. 110 POKE56,48:POKE52,48:CLR
  3. 120 POKE 56334,PEEK(56334) AND 254
  4. 130 POKE 1, PEEK(1) AND 251
  5. 140 FOR I= 1 TO 4096
  6. 150 : POKE (B+I-2),PEEK(53247+I)
  7. 170 NEXT I
  8. 180 POKE 1, PEEK(1) OR 4
  9. 190 POKE 56334, PEEK(56334) OR 1
  10. 200 READX:IFX=256 THEN 250
  11. 210 FOR I=1 TO 8
  12. 220 : READ Y
  13. 230 : POKE B +(X-1)*8, Y
  14. 240 NEXT
  15. 250 POKE53272,(PEEK(53272)AND240)OR12
  16. 260 END
  17. 63999 DATA 256
  18.